<% search = request.querystring("search") style = request.querystring("style") select case Request.QueryString("xyz") case"" select case search case "title" if request.querystring("locate") = "beg" then mySqlstr = "SELECT * FROM box WHERE movie LIKE '" + replace(request.querystring("title"),"'","''") + "%' ORDER BY movie" else mySqlstr = "SELECT * FROM box WHERE movie LIKE '%" + replace(request.querystring("title"),"'","''") + "%' ORDER BY movie" end if case "alpha" mySqlstr = "SELECT * FROM box WHERE movie LIKE '" + request.querystring("alpha") + "%' ORDER BY movie" case "chrono" mnth = request.querystring("m") if mnth = "all" then mad = "" else mad = " m = " + mnth end if yr = request.querystring("y") if yr = "all" then yad = "" else if mad <> "" then yad = " AND " yad = yad + " y = " + yr end if mySqlstr = "SELECT * FROM box " if mad <> "" or yad <> "" then mysqlstr = mysqlstr + " WHERE " mysqlstr = mysqlstr + mad mysqlstr = mysqlstr + yad end if mysqlstr = mysqlstr + " ORDER BY date" end select case "l" mysqlstr = session("sortsql") + " ORDER BY " + Request.QueryString("s") + " " select case Request.QueryString("d") case "d" mysqlstr = mysqlstr + " DESC" case "u" mysqlstr = mysqlstr + " ASC" end select case "m" mysqlstr = session("mysqlstr") end select 'conn open string modified by TK 5/14 to connect to virgohost server mySqlstr = replace(mySqlstr," open"," opn") 'mydsn = "dsn=shod" set conn = server.createobject("adodb.connection") 'Provider=SQLOLEDB; Data Source=216.93.166.191; UID=boxoffice; PWD=box2691; conn.open "dsn=boxoffice;uid=prophets;pwd=cutman;network=dbmssocn" set mydata = conn.execute(mySqlstr) 'set conn = server.createobject("adodb.connection") 'conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" + "D:\Inetpub\boxofficeprophets\db\shod97.mdb" 'set mydata = conn.execute(mySqlstr) surl = "dsearch.asp?xyz=l&xstart=1&xpage=" surl = surl + Cstr(request.querystring("xpage"))+ "&search=" + search + "&style=" + style sortsql = mysqlstr j = InStr(1, ucase(sortsql), "ORDER BY") if j > 0 then sortsql = left(sortsql,j - 1) session("sortsql") = sortsql session("mysqlstr") = mysqlstr %> <%if mydata.eof then %>     Search Error: No matching results found. Please try again.     <%else %> <% select case search case "title" response.write("Title Search") case "chrono" response.write("Chronological Search") case "alpha" response.write("Alphabetical Search") case "request" response.write("Request Search") case "topical" response.write("Topical Search") end select %> Click on title to view complete details for that film. Click on or to resort on this field <% select case style case "hsx"%> <% case "open"%> <% case "bo"%> <% case "full"%> <% end select %> <% xstart = Cint(request.querystring("xstart")) xpage = Cint(request.querystring("xpage")) xend = xstart + xpage count = 1 do while count < xstart mydata.movenext count = count + 1 loop do while not mydata.eof and count < xend if isnull(mydata("t")) then l = " " else l= cstr(mydata("t")) end if if isnull(mydata("rat")) then rat = " " else rat= cstr(mydata("rat")) end if if isnull(mydata("st")) then std = " " else std= cstr(mydata("st")) end if if isnull(mydata("tmult")) then tmult = " " else tmult= cstr(mydata("tmult")) end if if isnull(mydata("total")) then total = " " else total= cstr(mydata("total")) end if if isnull(mydata("inftotal")) then inftotal = " " else inftotal= cstr(mydata("inftotal")) end if if isnull(mydata("pk")) then pk = " " else pk= cstr(mydata("pk")) end if if isnull(mydata("at")) then xat= " " else xat= cstr(mydata("at")) end if if isnull(mydata("infopen")) then infopen = " " else infopen= cstr(mydata("infopen")) end if if isnull(mydata("psa")) then psa = " " else psa = cstr(mydata("psa")) end if if isnull(mydata("wknd")) then wknd = " " else wknd = cstr(mydata("wknd")) end if if isnull(mydata("x1stfri")) then x1stfri = " " else x1stfri = cstr(mydata("x1stfri")) end if if isnull(mydata("op")) then op = " " else op = cstr(mydata("op")) end if if isnull(mydata("f2s")) then f2s = " " else f2s = cstr(mydata("f2s")) end if if isnull(mydata("pre")) then pre = " " else pre = cstr(mydata("pre")) end if if isnull(mydata("movie")) then movie = " " else movie = "" + mydata("movie") + "" end if if isnull(mydata("m")) or isnull(mydata("d")) or isnull(mydata("y")) then xdate = " " else xdate = cstr(mydata("m")) + "/" + cstr(mydata("d")) + "/" + right(cstr(mydata("y")),2) end if if isnull(mydata("scr")) then scr = " " else scr = cstr(mydata("scr")) end if if isnull(mydata("opn")) then xopen = " " else xopen = cstr(mydata("opn")) end if if isnull(mydata("x4week")) then x4week = " " else x4week = cstr(mydata("x4week")) end if if isnull(mydata("mult")) then mult = " " else mult = cstr(mydata("mult")) end if If Eval(count\2 = count/2) Then response.write "" Else response.write "" end if select case style case "hsx" %> <% case "open" %> <% case "bo" %> <% case "full" %> <% end select mydata.movenext count = count + 1 loop fin = count do while not mydata.eof mydata.movenext count = count + 1 loop %> Title "> "> Date "> "> Scrn "> "> Pre "> "> Open "> "> 4 Week "> "> Mult "> "> Title "> "> Date "> "> Hol "> "> Scrn "> "> Pre "> "> Open "> "> Adj inf "> "> PSA "> "> 1st Fri "> "> Int mult "> "> Posn "> "> Title "> "> Date "> "> Scrn "> "> Pre "> "> Open "> "> Total "> "> Adj total "> "> Mult "> "> Peak posn "> "> Weeks@peak "> "> Title "> "> Studio "> "> Rating "> "> Length "> "> Scrn "> "> Date "> "> Hol "> "> Open "> "> Total "> "> <% response.write movie %> <% response.write xdate %> <% response.write scr %> <% response.write pre %> <% response.write xopen %> <% response.write x4week %> <% response.write mult %> <% response.write movie %> <% response.write xdate %> <% response.write wknd %> <% response.write scr %> <% response.write pre %> <% response.write xopen %> <% response.write infopen %> <% response.write psa %> <% response.write x1stfri %> <% response.write f2s %> <% response.write op %> <% response.write movie %> <% response.write xdate %> <% response.write scr %> <% response.write pre %> <% response.write xopen %> <% response.write total %> <% response.write inftotal %> <% response.write tmult %> <% response.write pk %> <% response.write xat %> <% response.write movie %> <% response.write std %> <% response.write rat %> <% response.write l %> <% response.write scr %> <% response.write xdate %> <% response.write wknd %> <% response.write xopen %> <% response.write total %> <% response.write "Displaying records " + cstr(xstart) + " to " + cstr(fin - 1) + " of " + cstr(count - 1) + "" %> <% if count > fin then %> <% end if %> <% if xstart > 1 then %> <% end if %> &style=<%response.write style %>&xpage=<%response.write cstr(xpage) %>&xstart=<% response.write cstr(xstart+xpage) %>>next page >> &style=<%response.write style %>&xpage=<%response.write cstr(xpage) %>&xstart=<% response.write cstr(xstart-xpage) %>><< previous page <% end if mydata.close set mydata=nothing conn.close set conn=nothing %>

Disclaimer: Despite our best efforts to keep the information within this database as timely and accurate as possible, we cannot make any guarantee as to its accuracy or completeness at any given time.